home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / tcp / InstallAmiTCP.lha / Install_AmiTCP next >
Text File  |  1995-09-04  |  17KB  |  696 lines
  1. ; Installer script for Paston AmiTCP
  2.  
  3. ; Show welcome message
  4. (welcome)
  5.  
  6. (set DOSTYPE (/ (getversion) 65536))
  7.     (if
  8.         (NOT (>= DOSTYPE 37))
  9.         (abort "AmiTCP 3b requires AmigaDOS 2.04 or higher."
  10.             " If you have an earlier version of AmigaDOS you must purchase an upgrade before using Opus 5.")
  11.     )
  12.  
  13.  
  14.  
  15. (set @default-dest
  16.     (askdir 
  17.         (prompt "OK, Where do you want to install AmiTCP ?")
  18.         (help "            The location on your hard drive\n "
  19.               "           where you want to install your\n "
  20.               "           copy of AmiTCP 3b to use via\n "
  21.               "           Paston Chase Internet Service.\n "
  22.               "           Drive:AmiTCP is recommended.")
  23.         (default "Work:AmiTCP")
  24.         (newpath)
  25.     )
  26.  
  27. )
  28.  
  29. (makedir @default-dest(infos))
  30.  
  31. (set @user-name
  32.     (askstring
  33.         (prompt " OK, What is your username?")
  34.         (help "           This is your user name as\n "
  35.               "           Agreed with Paston Chase.\n"
  36.               "                ie. jbloggs .")
  37.         (default "")
  38.     )
  39. )
  40.  
  41. (set @real-name
  42.     (askstring
  43.         (prompt "OK, What is your realname?")
  44.         (help "           This should be straight forward\n"
  45.               "                  Your real name.\n"
  46.               "                  ie. fred bloggs.")
  47.         (default "")
  48.     )
  49. )
  50.  
  51. (set my-editor
  52.     (askstring
  53.         (prompt "OK, What editor do you want to use?\n"
  54.             "        Suggest C:Ed              ")
  55.         (help "           This should be straight forward\n"
  56.               "           Your choice of text editor.\n"
  57.         (default "C:Edi")
  58.     )
  59. )
  60.  
  61. (set @GRn-savedir
  62.     (askstring
  63.         (prompt "OK, Where do want to save your news item's?")
  64.         (help   "This is where when you are reading thought\n"
  65.              " news item and you want to save one for a\n"
  66.             "latter date to re-read, edit or print .\n"
  67.               "                  ie.DH0:Misc")
  68.         (default "DH0:Misc")
  69.     )
  70. )
  71.  
  72. (set @password
  73.     (askstring
  74.         (prompt "OK, What is your password?")
  75.         (help "            This is your password as\n "
  76.               "           Agreed with Paston Chase.")
  77.         (default "")
  78.     )
  79. )
  80.  
  81. (set @ip-no
  82.     (askstring
  83.         (prompt "OK, What is your IP number?")
  84.         (help "           This is the slip no given\n"
  85.               "           to your by Paston Chase.")
  86.         (default "")
  87.     )
  88. )
  89.  
  90. (set baudrate 
  91.     (asknumber
  92.             (prompt "Enter desired baud rate\n"
  93.                 "e.g: 57600, 38400, 19200, or 9600\n")
  94.             (help    " The baud rate selected here is the speed at which your "
  95.                 "computer will be communicating with the modem, referred to "
  96.                 "by most modem manuals as the 'DTE Speed'.\n"    )
  97.             
  98.             (default 19200)
  99.         )
  100.     )
  101.  
  102.  
  103. (makedir "Sys:devs/Networks")
  104. (makedir "sys:prefs/env-archive/sana2")
  105.  
  106. (set
  107. HDbin (tackon @default-dest "bin")
  108. )
  109. (makedir HDbin)
  110.  
  111. (set
  112. HDdb (tackon @default-dest "db")
  113. )
  114. (makedir HDdb)
  115.  
  116. (set
  117. HDserv (tackon @default-dest "serv")
  118. )
  119. (makedir HDserv)
  120.  
  121. (set
  122. HDdevs (tackon @default-dest "devs")
  123. )
  124. (makedir HDdevs)
  125.  
  126. (set
  127. HDdocs (tackon @default-dest "docs")
  128. )
  129. (makedir HDdocs)
  130.  
  131. (set
  132. HDl (tackon @default-dest "l")
  133. )
  134. (makedir HDl)
  135.  
  136. (set
  137. HDlibs (tackon @default-dest "libs")
  138. )
  139. (makedir HDlibs)
  140.  
  141. (set
  142. HDusr (tackon @default-dest "usr")
  143. )
  144. (makedir HDusr)
  145.  
  146. (set
  147. HDusrlib (tackon HDusr "lib")
  148. )
  149. (makedir HDusrlib)
  150.  
  151. (set
  152. HDusrlibElm (tackon HDusrlib ".elm")
  153. )
  154. (makedir HDusrlibElm)
  155.  
  156. (set
  157. HDmail (tackon HDusr "mail")
  158. )
  159. (makedir HDmail)
  160.  
  161. (set
  162. HDnews (tackon HDusr "news")
  163. )
  164. (makedir HDnews)
  165.  
  166. (set
  167. HDspool (tackon HDusr "spool")
  168. )
  169. (makedir HDspool)
  170.  
  171. (set
  172. HDuser-name (tackon HDusr @user-name)
  173. )
  174. (makedir HDuser-name)
  175.  
  176. (set
  177. HDsnews (tackon HDspool "news")
  178. )
  179. (makedir HDsnews)
  180. (
  181.  
  182. (set file (tackon HDusrlib "Aliases"))
  183.     (delete file)
  184.     (textfile
  185.         (dest file)
  186.         (append
  187.             (cat
  188.                 "# Following alias is required by the new mail protocol, RFC 822\n"
  189.                 "postmaster: " @user-name "\n"
  190.                 "\n# Aliases to handle mail to msgs and news\n\n\n"
  191.                 "# System\n"
  192.                 "manager: " @user-name "\n"
  193.                 "operator: " @user-name "\n"
  194.                 "staff: " @user-name "\n"
  195.                 "nobody: " @user-name "\n"
  196.                 "root: " @user-name "\n"
  197.                 "uucp: " @user-name "\n"
  198.                 "daemon: " @user-name "\n"
  199.                 "lp: " @user-name "\n"
  200.                 "decode: | AmiTCP:bin/uudecode \n\n"
  201.                 "User \n\n"
  202.                 "# End of file\n"
  203.             )
  204.         )
  205.     )
  206. )
  207.     
  208. (set file (tackon  HDbin "Link"))
  209.     (delete file)
  210.     (textfile
  211.         (dest file)
  212.         (append
  213.             (cat
  214.                 "/*rx\n"
  215.                 "*/\n\n"
  216.                 "/* VARIABLES - Modify these for your setup */\n"
  217.                 "myip = \"" @ip-no"\"                /* My IP number */\n"
  218.                 "mydev = \"devs:networks/gwcslip.device\"    /* Slip Device being used */\n"
  219.                 "mydevu = \"0\"                    /* Unit Number */\n"
  220.                 "myif = \"cslip\"||mydevu            /* Interface name (amitcp 3.0) */\n"
  221.                 "myhost = \"194.129.188.1\"            /* Gate */\n"
  222.                 "rcmd = \"AmiTCP:Bin/route\"\n"
  223.                 "ifcmd = \"AmiTCP:Bin/ifconfig\"\n\n"
  224.                 "/* THE SCRIPT */\n\n"
  225.                 "address command\narg which \n\n"
  226.                 "if which=\"\" then say \"No command specified - try UP or DOWN\"\n"
  227.                 "if which~=\"UP\" & which~=\"DOWN\" then say \"Invalid command \'\" || which || \"\' - try UP or DOWN\"\n"
  228.                 "else if which=\"UP\" then do\n"
  229.                 "     ifcmd myif myip myhost \"netmask 255.255.0.0\"\n"
  230.                 "    \"AmiTCP:Bin/online\" mydev mydevu\n"
  231.                 "    rcmd \"add default\" myhost\n"
  232.                 "    \"AmiTCP:Bin/mailkick 194.129.188.3 handletos logsends\"\n"
  233.                 "    \"run AmiTCP:bin/AmiPOP-AmiTCP.000 Username="@user-name" Password="@password" POPHost=194.129.188.3 MailBox=UUMail:chapman Append Delete WinX=0 WinY=115 Immediate\"\n"
  234.                 "     \"run AmiTCP:bin/sendnews\"\n"
  235.                 "end\n"
  236.                 "else if which=\"DOWN\" then do\n"
  237.                 "    \"AmiTCP:Bin/mailkick quit\"\n"
  238.                 "    ifcmd myif \"down\"\n"
  239.                 "    \"AmiTCP:Bin/offline\" mydev mydevu\n"
  240.                 "    rcmd \"delete\" myhost\n"
  241.                 "    rcmd \"delete default\"\n"
  242.                 "end\n\n"
  243.             )
  244.         )
  245.     )
  246.  
  247. (set file (tackon HDdb "DialScript"))
  248.     (delete file)
  249.     (textfile
  250.         (dest file)
  251.         (append
  252.             (cat
  253.                 "echo on\n"
  254.                 "# Dialer Script (change to echo off if you don't want echoing)\n"
  255.                 "abort \"BUSY\" \"NO DIAL TONE\" \"NO CARRIER\" \"NO ANSWER\"\n"
  256.                 "timeout 100\n"
  257.                 "# Initialise modem...\n"
  258.                 "send \"ATZ\"\n"
  259.                 "wait \"OK\"\n"
  260.                 "# Setup retries\n"
  261.                 "retry 20\ndelay 15\n"
  262.                 "# Send dial command...\n"
  263.                 "send ATDT01603453303\n"
  264.                 "# ... and wait for connection.\n"
  265.                 "timeout 1000\n"
  266.                 "# At 'login:' prompt send nodename\n"
  267.                 "wait \"ogin:\"\n"
  268.                 "send \"" @user-name "\"\n"
  269.                 "delay 30\n"
  270.                 "timeout 1500\n"
  271.                 "# At 'Password:' prompt send our password\n"
  272.                 "wait \"assword:\"\n"
  273.                 "send \"" @password "\"\n"
  274.                 "delay 30\n"
  275.                 "# Allow time for 'Protocol:' prompt and then send 'SLIP'\n"
  276.                 "# Wait for SLIP start string\n"
  277.                 "timeout 1500\n"
  278.                 "endretry\n"
  279.                 "# Connected!\n"
  280.             )
  281.         )
  282.     )
  283.  
  284. (set file (tackon HDbin "StartNet"))
  285.     (delete file)
  286.     (textfile
  287.         (dest file)
  288.         (append
  289.             (cat
  290.             ";\n;; Ensure we have assigns and env settings\n\;\n"
  291.             "assign AmiTCP: " @default-dest"\n"
  292.             "path >NIL: AmiTCP:bin remove\n"
  293.             "path AmiTCP:bin add\n"
  294.             "assign INet:        AmiTCP:\n"
  295.             "assign usr:        AmiTCP:usr\n"
  296.             "assign uumail:        usr:mail\n"
  297.             "assign uulib:        usr:lib\n"
  298.             "assign uuspool:        usr:spool\n"
  299.             "assign uunews:        usr:news\n"
  300.             "assign etc:        AmiTCP:db\n"
  301.             "; Environment variables (You _CAN_ change these :)\n"
  302.             "setenv HOME            usr\n"
  303.             "setenv HOST                paston.co.uk\n"
  304.             "setenv HOSTNAME        localhost\n"
  305.             "setenv NNTPSERVER        news.paston.co.uk\n"
  306.             "setenv ORGANIZATION        Private\n"
  307.             "setenv PN-LOGFILE        uuspool:postnewslogfile\n"
  308.             "setenv PN-NNTPPOST        AmiTCP:bin/nntppost\n"
  309.             "setenv PN-SCRIPTFILE        T:postnewsscript\n"
  310.             "setenv PN-SEQFILE        uuspool:news/seq\n"
  311.             "setenv PN-SPOOLDIR        uuspool:news\n"
  312.             "setenv REALNAME        "@real-name"\n"
  313.             "setenv USER            "@user-name"\n"
  314.             "setenv USERNAME        "@user-name"\n"
  315.             "setenv NODENAME        paston.co.uk\n"
  316.             "setenv SENDMAIL        AmiTCP:bin/sendmail\n"
  317.             "cd AmiTCP:bin\n"
  318.             "run >NIL: AmiTCP:AmiTCP\n"
  319.             "wait 1\n"
  320.             ";\n;; Configure local interface\n;\n"
  321.             "amitcp:bin/ifconfig lo0 localhost\n"
  322.             "amitcp:bin/route >NIL: add " @ip-no " localhost\n"
  323.             ";\n;; Mount the TCP: device\n;\n"
  324.             "assign >NIL: TCP: exists\n"
  325.             "if WARN\n"
  326.             "    mount TCP: from AmiTCP:devs/INet-MountList\n"
  327.             "endif\n"
  328.             ";\n;; Start INetd (a kind of internet receptionist)\n"
  329.             "; inetd is required if you want to receive incoming 'calls'\n"
  330.             "; such as news, talks, ftp, etc.\n"
  331.             ";\nrun >nil: inetd;\n"
  332.             ";\n Set up alias\n"
  333.             ";\nalias ftp ncftp []\n"
  334.             ";\n;Set default user\n;\n"
  335.             "login -f " @user-name "\n"
  336.             )
  337.         )
  338.     )
  339.  
  340. (set file (tackon HDusrlib "Config"))
  341.     (delete file)
  342.     (textfile
  343.         (dest file)
  344.         (append
  345.             (cat
  346.                 "UserName        "@user-name "\n"
  347.                 "RealName        "@real-name "\n"
  348.                 "HostName         .paston.co.uk\n"
  349.                 "Organization         Private\n"
  350.                 "TimeZone        GMT\n"
  351.                 "DefaultNode        194.129.188.1\n"
  352.                 "NNTPServer        news.paston.co.uk\n"
  353.                 "ReplyPrefix        > \n"
  354.                 "MailEditor        " my-editor "\n"
  355.                 "NewsEditor        " my-editor "\n"
  356.                 "RMail            amitcp:bin/rmail\n"
  357.                 "SendMail        amitcp:bin/sendmail \n"
  358.                 "MailFixedFont    xen.font 9\n"
  359.                 "MailPropFont    xhelvetica.font 11\n"
  360.             )
  361.         )
  362.     )
  363.  
  364. (set file (tackon HDdb "passwd"))
  365.     (textfile
  366.         (dest file)
  367.         (append (cat "root||0|0|" @real-name "|sys:|shell\n"))
  368.         (append (cat @user-name"||100|100|" @real-name"|usr:" @user-name"|shell\n"))
  369.     )
  370.  
  371. (set file (tackon HDuser-name ".Signature"))
  372.     (delete file)
  373.     (textfile
  374.         (dest file)
  375.         (append
  376.             (cat
  377.                 "~===========================================================================~\n"
  378.                  @user-name "@paston.co.uk  (Private)\n"
  379.             )
  380.         )
  381.     )
  382.  
  383. (set file (tackon HDusrlib ".Signature"))
  384.     (delete file)
  385.     (textfile
  386.         (dest file)
  387.         (append
  388.             (cat
  389.                 "~===========================================================================~\n"
  390.                  @user-name "@paston.co.uk  (Private)\n"
  391.             )
  392.         )
  393.     )
  394.  
  395. (set file (tackon HDdb "NetDB-MyHost"))
  396.     (delete file)
  397.     (textfile
  398.         (dest file)
  399.         (append
  400.             (cat
  401.             "; This host\n"
  402.             "HOST 127.0.0.1 localhost\n"
  403.             "HOST " @ip-no " paston.co.uk\n"
  404.             "; Domain names\n"
  405.             "DOMAIN paston.co.uk\n"
  406.             "DOMAIN co.uk\n"
  407.             "DOMAIN uk\n"
  408.             "; Name servers\n"
  409.             "NAMESERVER  194.129.188.3\n"
  410.             "; EOF\n"
  411.             )
  412.         )
  413.     )
  414.     
  415. (set file (tackon HDdb "motd"))
  416.     (delete file)
  417.     (textfile
  418.         (dest file)
  419.         (append 
  420.             (cat
  421.                 "<< Welcome "@real-name" To Paston >>\n\n")
  422.         )
  423.     )
  424.  
  425. (set file (tackon HDusrlibElm "ELMRC"))
  426.     (delete file)
  427.     (textfile
  428.         (dest file)
  429.         (append 
  430.             (cat
  431.                     "# example .elm/elmrc \n"
  432.                 "# (rename it to "<username>.elmrc" for multiple users) \n"
  433.                 "AnswerReturnReceipt     No \n"
  434.                 "AnswerReturnView        Yes \n"
  435.                 "RequestReturnReceipt    No \n"
  436.                 "RequestReturnView       No \n"
  437.                 "ShowFullHeader          No \n"
  438.                 "ShowSignature           Yes \n"
  439.                 "PrefixString            \"> \" \n"
  440.                 "SentArchive             uumail:" @user-name ".sent \n"
  441.                 "ReceivedFolder          uumail:" @user-name ".received \n"
  442.                 "Fullname                "@real-name "\n"
  443.                 "AlwaysDelete            Yes \n"
  444.                 "AlwaysKeep              Yes \n"
  445.                 "Editor                  "my-editor "\n"
  446.                 "SendmailVersion         Feulner \n"
  447.                 "ReplyIntroduction       Hi $FIRSTNAME,\n"
  448.                 "ForwardIntroduction     On $DATE, $NAME wrote: \n"
  449.                 "KeepBackup              No \n"
  450.                 "#Color                  1000 2000 3000 4000 \n"
  451.                 "#Color                  0x45A 0xFFF 0xF00 0x88F \n"
  452.                 "Color                   3258 0 4095 2916 \n"
  453.                 "Buffers                 20000 \n"
  454.                 "#StdFontName            courier.font \n"
  455.                 "#StdFontSize            13 \n"
  456.                 "#PagerFontName          courier.font \n"
  457.                 "#PagerFontSize          13 \n"
  458.                 "#StdFontName            courier.font \n"
  459.                 "#StdFontSize            13 \n"
  460.                 "#PagerFontName          topaz-classic.font \n"
  461.                 "#PagerFontSize          11 \n"
  462.                 "#Pager                  builtin \n"
  463.                 "ReverseSorting          YES \n"
  464.                 "FilenameOffer           Subject \n"
  465.                 " \n"
  466.                 "# Screen Parameters \n"
  467.                 "# (should be large enough for 80x20 characters (with default font)) \n"
  468.                 " \n"
  469.                 "#UseOwnScreen           Yes \n"
  470.                 "#PubScreenName          AmigaMapsElm \n"
  471.                 "ShanghaiWindows     No \n"
  472.                 "#Screen-Width           -1 \n"
  473.                 "#Screen-Height          -1 \n"
  474.                 "# 'Yes' for interlaced screen \n"
  475.                 "#Screen-Interlace       Yes \n"
  476.                 "# \n"
  477.                 "Encrypt            AmiTCP:bin/Encrypt $MSG $MODE \n"
  478.                 "Decrypt            Decrypt $MSG \n"
  479.                 "CyyptMode        pgp \n"
  480.                 "# \n"
  481.                 "# end of .elmrc \n"
  482.             )
  483.         )
  484. )
  485.  
  486.  
  487. (set file (tackon "sys:prefs/env-archive/sana2" "Slip0.Config"))
  488.     (delete file)
  489.     (textfile
  490.         (dest file)
  491.         (append
  492.             (cat
  493.             "# GWCSlip configuration\n"
  494.             "serial.device 0 "baudrate" " @ip-no " CD 7wire  DialScript=AmiTCP:db/Dialscript MTU 576\n"
  495.             )
  496.         )
  497.     )
  498. (set file (tackon HDbin "PrepNews"))
  499.     (delete file)
  500.     (textfile
  501.         (dest file)
  502.         (append    
  503.             (cat
  504.                 "if exists \"uuspool:NewsBatch\" \n"
  505.                 "echo \"unbatching news ...\" \n"
  506.                 "AmiTCP:bin/rnews \"uuspool:NewsBatch\"    \n"
  507.                 "echo \"deleting NewsBatch\" \n"
  508.                 "delete \"uuspool:NewsBatch\" quiet \n"    
  509.                 "echo \"Triming old news\" \n"
  510.                 "AmiTCP:bin/trimnews \n"
  511.                 "else \n"
  512.                 "echo \"Sorry, no news transferred\" \n"
  513.                 "endif \n"
  514.                 "SETENV GRNSaveDir "@GRN-SaveDir " \n"
  515.                 "SETENV replyprefix \"> \" \n"
  516.                 "run AmiTCP:bin/GRn height=240 top=10 left=30 wrap=83 \n"
  517.              )
  518.            )    
  519.     )
  520.  
  521. (copyfiles
  522.         (source "AmiTCP_1:lhex")
  523.         (dest "ram:")
  524. )
  525.  
  526.  
  527.  
  528. (working "DeArchiving AmiTCP:serv files.")
  529.  
  530.     (textfile
  531.         (dest "RAM:install_cmd")
  532.         (append 
  533.         "ram:lhex >NIL: <NIL: -qfw ""\""HDserv"\"" " x AmiTCP_1:serv.lha \n"
  534.         )
  535.     )
  536.  
  537. (execute "RAM:install_cmd")
  538.  
  539. (working "DeArchiving AmiTCP files.")
  540.  
  541.     (textfile
  542.         (dest "RAM:install_cmd")
  543.         (append 
  544.         "ram:lhex >NIL: <NIL: -qfw ""\""@default-dest"\"" " x AmiTCP_1:AmiTCP_Prog.lha \n"
  545.         )
  546.     )
  547.  
  548. (execute "RAM:install_cmd")
  549.  
  550. (working "DeArchiving Sys:Fonts Extra files.")
  551.  
  552.     (textfile
  553.         (dest "RAM:install_cmd")
  554.         (append 
  555.         "ram:lhex >NIL: <NIL: -qfw sys:Fonts x AmiTCP_1:Fonts.lha \n"
  556.         )
  557.     )
  558.  
  559. (execute "RAM:install_cmd")
  560.  
  561. (working "DeArchiving Sys:Libs Extra files.")
  562.  
  563.     (textfile
  564.         (dest "RAM:install_cmd")
  565.         (append 
  566.         "ram:lhex >NIL: <NIL: -qfw sys:libs x AmiTCP_1:syslibs.lha \n"
  567.         )
  568.     )
  569.  
  570. (execute "RAM:install_cmd")
  571.  
  572. (working "DeArchiving Sys:Devs Extra file.")
  573.  
  574.     (textfile
  575.         (dest "RAM:install_cmd")
  576.         (append 
  577.         "ram:lhex >NIL: <NIL: -qfw Sys:devs/networks x AmiTCP_1:networks.lha \n"
  578.         )
  579.     )
  580.  
  581. (execute "RAM:install_cmd")
  582.  
  583. (working "DeArchiving AmiTCP:Libs and related files.")
  584.  
  585.     (textfile
  586.         (dest "RAM:install_cmd")
  587.         (append 
  588.         "ram:lhex >NIL: <NIL: -qfw ""\""HDLibs"\"" " x AmiTCP_1:Libs.lha \n"
  589.         )
  590.     )
  591.  
  592. (execute "RAM:install_cmd")
  593.  
  594. (askdisk
  595.             (prompt "Please insert the disk labeled \"AmiTCP_2\"" )
  596.             (help    "AmiTCP_2 contains the rest of AmiTCP "
  597.                     "that need to be installed onto your system." )
  598.             (dest "AmiTCP_2" )
  599.         )
  600.  
  601. (working "DeArchiving AmiTCP:bin files.")
  602.  
  603.     (textfile
  604.         (dest "RAM:install_cmd")
  605.         (append 
  606.         "ram:lhex >NIL: <NIL: -qfw ""\""HDbin"\"" " x AmiTCP_2:Bin.lha \n"
  607.         )
  608.     )
  609.  
  610.     (execute "RAM:install_cmd")
  611.  
  612. (working "DeArchiving AmiTCP:db files.")
  613.  
  614.     (textfile
  615.         (dest "RAM:install_cmd")
  616.         (append 
  617.         "ram:lhex >NIL: <NIL: -qfw ""\""HDdb"\"" " x AmiTCP_2:Db.lha \n"
  618.         )
  619.     )
  620.  
  621.     (execute "RAM:install_cmd")
  622.  
  623. (working "DeArchiving AmiTCP:devs files.")
  624.  
  625.     (textfile
  626.         (dest "RAM:install_cmd")
  627.         (append 
  628.         "ram:lhex >NIL: <NIL: -qfw ""\""HDdevs"\"" " x AmiTCP_2:Devs.lha \n"
  629.         )
  630.     )
  631.  
  632.     (execute "RAM:install_cmd")
  633.  
  634. (working "DeArchiving AmiTCP:doc files.")
  635.  
  636.     (textfile
  637.         (dest "RAM:install_cmd")
  638.         (append 
  639.         "ram:lhex >NIL: <NIL: -qfw ""\""HDdocs"\"" " x AmiTCP_2:Doc.lha \n"
  640.         )
  641.     )
  642.  
  643.     (execute "RAM:install_cmd")
  644.  
  645. (working "DeArchiving AmiTCP:L files.")
  646.  
  647.     (textfile
  648.         (dest "RAM:install_cmd")
  649.         (append 
  650.         "ram:lhex >NIL: <NIL: -qfw ""\""HDl"\"" " x AmiTCP_2:L.lha \n"
  651.         )
  652.     )
  653.  
  654.     (execute "RAM:install_cmd")
  655.  
  656.  
  657. (working "DeArchiving AmiTCP:UsrLib files.")
  658.  
  659.     (textfile
  660.         (dest "RAM:install_cmd")
  661.         (append 
  662.         "ram:lhex >NIL: <NIL: -qfw ""\""HDusrlib"\"" " x AmiTCP_2:usrlib.lha \n"
  663.         )
  664.     )
  665.  
  666.     (execute "RAM:install_cmd")
  667.  
  668.     (protect (tackon HDbin "StartNet") "+s")
  669.     (protect (tackon HDbin "Link") "+s")
  670.     (protect (tackon HDbin "NNTPTransfer") "+s")
  671.     (protect (tackon HDbin "NetStat") "+s")
  672.     (protect (tackon HDbin "Telnet") "+s")
  673.     (protect (tackon HDbin "StopNet") "+s")
  674.     (protect (tackon HDbin "SynClock") "+s")
  675.     (protect (tackon HDbin "TalkRequest.rx") "+s")
  676.     (protect (tackon HDbin "PrepNews") "+s")
  677.     (protect (tackon HDbin "Newsq") "+s")
  678.     
  679. (startup "AmiTCP 3b"
  680.         (prompt
  681.         "The following instructions will added to your "
  682.         "\"S:User-Startup\" so that your system will be properly "
  683.         "configured to use AmiTCP.\n\n"
  684.         "ASSIGN AmiTCP: \"" @default-dest "\"\n"
  685.         "You must REBOOT before using this package"
  686.         )
  687.         (help "This will add commands to your S:user-startup file to "
  688.             "allow the correct operation of AmiTCP 3b")
  689.         (command "ASSIGN AmiTCP: \"" @default-dest "\"\n")
  690.     )    
  691.  
  692.  
  693. (exit)
  694.  
  695. ; EOF
  696.